home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Technotools
/
Technotools (Chestnut CD-ROM)(1993).ISO
/
lang_pas
/
mkscren2
/
screenxx.inc
< prev
next >
Wrap
Text File
|
1987-12-08
|
673b
|
14 lines
gotoxy( 1, 4);write('Section Header 1');
draw_field( 7, 5,xf[ 1],yf[ 1],'Label1:',Var1,0, 4);
draw_field(26, 5,xf[ 2],yf[ 2],'Label2:',Var2,0,11);
draw_field(53, 5,xf[ 3],yf[ 3],'Label3:',Var3,0,12);
gotoxy( 1, 7);write('Section Header 1');
draw_field( 7, 8,xf[ 4],yf[ 4],'Label1:',Var4,0, 4);
draw_field(26, 8,xf[ 5],yf[ 5],'Label2:',FieldTag1,0,11);
draw_field(53, 8,xf[ 6],yf[ 6],'Label3:',FieldTag2,0,12);
gotoxy( 1,11);write('Section Header 2');
draw_field(22,13,xf[ 7],yf[ 7],'Aaaa:',FieldTag3,0, 5);
draw_field(34,13,xf[ 8],yf[ 8],'Bbbb:',AAAA,0, 5);
draw_field(46,13,xf[ 9],yf[ 9],'Cccc:',CCCC,0, 5);
draw_field( 1,15,xf[10],yf[10],'xxxx:',Name,0,33);